home *** CD-ROM | disk | FTP | other *** search
/ Champak 106 / Vol 106.iso / games / stepp000.swf / scripts / DefineSprite_757 / frame_2 / DoAction.as
Encoding:
Text File  |  2010-04-12  |  596 b   |  23 lines
  1. i = 1;
  2. while(eval("/Variables:InvNb") >= i and eval("/Variables:InvObjet" + i) != eval("/Variables:ObjetRemove"))
  3. {
  4.    if(eval("/Variables:InvObjet" + i) != eval("/Variables:ObjetRemove"))
  5.    {
  6.       i += 1;
  7.    }
  8. }
  9. k = i;
  10. while(eval("/Variables:InvNb") >= k)
  11. {
  12.    set("/Variables:InvObjet" + k,eval("/Variables:InvObjet" + (k + 1)));
  13.    k += 1;
  14. }
  15. set("/Variables:InvObjet" + eval("/Variables:InvNb"),0);
  16. set("/Variables:ObjetSelect",0);
  17. tellTarget("_root.Inventaire.ObjetAffiche")
  18. {
  19.    gotoAndStop(1);
  20. }
  21. set("/Variables:InvNb",eval("/Variables:InvNb") - 1);
  22. gotoAndStop(1);
  23.